home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / asm / TBSource.lha / NBBS / SetProg / SPSetSer.i < prev    next >
Text File  |  1993-07-02  |  2KB  |  71 lines
  1.  
  2. SetSer:        lea.l    StopB1Gad(pc),a0
  3.         move.w    $c(a0),a0
  4.         cmp.w    #$86,a0
  5.         bne    SSStopB2
  6.         move.b    #$01,SerStopBits
  7.         jmp    SetSer2
  8. SSStopB2:    move.b    #$02,SerStopBits
  9. SetSer2:    lea.l    DataB7Gad(pc),a0
  10.         move.w    $c(a0),a0
  11.         cmp.w    #$86,a0
  12.         bne    SSDataB8
  13.         move.b    #$07,SerDataBits
  14.         jmp    SetSer3
  15. SSDataB8:    move.b    #$08,SerDataBits
  16. SetSer3:    bclr.b    #SERB_PARTY_ON,SerFlags
  17.         bclr.b    #SERB_PARTY_ODD,SerFlags
  18.         bclr.b    #SEXTB_MSPON,SerExtFlags+3
  19.         bclr.b    #SEXTB_MARK,SerExtFlags+3
  20.         lea.l    ParityNGad(pc),a0
  21.         move.w    $c(a0),a0
  22.         cmp.w    #$86,a0
  23.         beq    SetSer4
  24. SSParityE:    lea.l    ParityEGad(pc),a0
  25.         move.w    $c(a0),a0
  26.         cmp.w    #$86,a0
  27.         bne    SSParityO
  28.         bset.b    #SERB_PARTY_ON,SerFlags
  29.         jmp    SetSer4
  30. SSParityO:    lea.l    ParityOGad(pc),a0
  31.         move.w    $c(a0),a0
  32.         cmp.w    #$86,a0
  33.         bne    SSParityM
  34.         bset.b    #SERB_PARTY_ON,SerFlags
  35.         bset.b    #SERB_PARTY_ODD,SerFlags
  36.         jmp    SetSer4
  37. SSParityM:    lea.l    ParityMGad(pc),a0
  38.         move.w    $c(a0),a0
  39.         cmp.w    #$86,a0
  40.         bne    SSParityS
  41.         bset.b    #SERB_PARTY_ON,SerFlags
  42.         bset.b    #SEXTB_MSPON,SerExtFlags+3
  43.         jmp    SetSer4
  44. SSParityS:    bset.b    #SERB_PARTY_ON,SerFlags
  45.         bset.b    #SEXTB_MSPON,SerExtFlags+3
  46.         bset.b    #SEXTB_MARK,SerFlags+3
  47.         jmp    SetSer4
  48. SetSer4:    bset.b    #SERB_XDISABLED,SerFlags    
  49.         lea.l    XONXOFFGad(pc),a0
  50.         move.w    $c(a0),a0
  51.         cmp.w    #$86,a0
  52.         bne    SetSer5
  53.         bclr.b    #SERB_XDISABLED,SerFlags
  54. SetSer5:    lea.l    DuplexFGad(pc),a0
  55.         move.w    $c(a0),a0
  56.         cmp.w    #$86,a0
  57.         bne    SSDuplexH
  58.         move.b    #$00,SerDuplex
  59.         jmp    SetSer6
  60. SSDuplexH:    lea.l    DuplexHGad(pc),a0
  61.         move.w    $c(a0),a0
  62.         cmp.w    #$86,a0
  63.         bne    SSDuplexE
  64.         move.b    #$01,SerDuplex
  65.         jmp    SetSer6
  66. SSDuplexE:    move.b    #$02,SerDuplex
  67. SetSer6:    move.l    SerUnitLInt(pc),SerUnit
  68.         move.l    UserFontSizeLInt(pc),UserFontSize
  69.         move.l    SerBRKTLInt(pc),SerBRKT
  70.         rts
  71.